home *** CD-ROM | disk | FTP | other *** search
/ TestDrive Windows 1993 Fall / TestDrive Windows 1993 Fall.iso / dbase / samples / addcodes.upd (.txt) < prev    next >
Encoding:
dBase Update  |  1993-03-09  |  4.9 KB  |  78 lines
  1. * dBASE IV .UPD file 8
  2. CLOSE DATABASES
  3. SET EXACT ON
  4. SELECT 1
  5. USE EMPLOYEE.DBF
  6. SET FILTER TO 
  7. GO TOP
  8. SELECT 2
  9. USE CODES.DBF
  10. SELECT 1
  11. IF network()
  12. COUNT TO QBE___CNTR
  13. GO TOP
  14. ENDIF
  15. DO WHILE .NOT. EOF()
  16. IF network()
  17. IF QBE___CNTR < 1
  18. ENDIF
  19. QBE___CNTR = QBE___CNTR - 1
  20. ENDIF
  21. SELECT 2
  22. APPEND BLANK
  23. REPLACE CITY WITH EMPLOYEE->CITY,CODE WITH ;
  24. VAL(SUBST(Employee->Phone,2,3))
  25. SELECT 1
  26. ENDDO
  27. SELECT 1
  28. SET FILTER TO
  29. SET FIELDS TO
  30. SET SKIP TO
  31. SET RELATION TO
  32. SELECT 1
  33. SELECT 2
  34. EMPLOYEE.DBF
  35. CODES.DBF
  36. :Employee.dbf*$i
  37. :LASTNAME*$i
  38. :FIRSTNAME*$i
  39. :INITIAL*$i
  40. :DEPARTMENT*$i
  41. :EMP_ID*$i
  42. :PHONE*$i
  43. :SPECIALTY*$i
  44. :COMMENTS*$i
  45. :AWARDS*$i
  46. :DATE_HIRED*$i
  47. :DEGREE*$i
  48. :EXEMPT*$i
  49. :FULL_TIME*$i
  50. :LABORGRADE*$i
  51. :RATE*$i
  52. :SALARY*$i
  53. :TITLE*$i
  54. :YRS_EXPER*$i
  55. :ADDRESS1*$i
  56. :ADDRESS2*$i
  57. :CITY*$i
  58. :STATE*$i
  59. :ZIP*$i
  60. :department+lastname+firstname+initial*$i
  61. :department+STR(salary,8,2)*$i
  62. :STR(yrs_exper,4,1)*$i
  63. :lastname+firstname+initial*$i
  64. ,xx:town*$i
  65. ,xx:*$i
  66. :Codes.dbf*$i
  67. :CITY*$i
  68. :CODE*$i
  69. ,xx:Append*$i
  70. ,xx:town*$i
  71. ,xx:newcode*$i
  72. ,xx:*$i
  73. ,xx:    *$i
  74. :Calc'd Flds*$i
  75. :VAL(SUBST(Employee->Phone,2,3))*$i
  76. ,xx:newcode*$i
  77. ,xx:    
  78.